home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
powerb5.zip
/
SPECCHAR.TXT
< prev
next >
Wrap
Text File
|
1993-06-01
|
1KB
|
47 lines
Sub Main
Begin Dialog UserDialog 325, 290
Text 10, 6, 144, 12, "Special Characters"
PushButton 10, 24, 210, 21, "E&m Dash"
PushButton 10, 47, 210, 21, "E&n Dash"
PushButton 10, 70, 210, 21, "&Open Double Quote"
PushButton 10, 94, 210, 21, "&Close Double Quote"
PushButton 10, 118, 210, 21, "Open &Single Quote"
PushButton 10, 142, 210, 21, "&Apostrophe"
PushButton 10, 166, 210, 21, "Co&pyright"
PushButton 10, 190, 210, 21, "&Registered Trademark"
PushButton 10, 214, 210, 21, "One &Fourth"
PushButton 10, 238, 210, 21, "One &Half"
PushButton 10, 262, 210, 21, "Three &Quarters"
CancelButton 230, 3, 88, 21
End Dialog
Dim Characters As UserDialog
On Error Goto Goodbye
ChoiceMade = Dialog(Characters)
Select Case ChoiceMade
Case 1
Insert Chr$(150)
Case 2
Insert Chr$(151)
Case 3
Insert Chr$(147)
Case 4
Insert Chr$(148)
Case 5
Insert Chr$(145)
Case 6
Insert Chr$(146)
Case 7
Insert Chr$(169)
Case 8
Insert Chr$(174)
Case 9
Insert Chr$(188)
Case 10
Insert Chr$(189)
Case 11
Insert Chr$(190)
Case Else
End Select
GoodBye:
End Sub